home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 47 / 64er_Magazin_Sonderheft_47_19xx_Markt__Technik_de_Side_A.d64 / colormaker 64 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  60 lines
  1. 1 rem ****************************
  2. 2 rem *      colormaker 64       *
  3. 3 rem ****************************
  4. 4 rem *     (c) by gpg-soft      *
  5. 5 rem ****************************
  6. 6 rem
  7. 10 poke198,0
  8. 20 poke53280,6:poke53281,6
  9. 30 input"[147][155][206]ame des [194]ildes";na$
  10. 40 na$=left$(na$+"********",8)
  11. 50 fori=1to8
  12. 60 poke4259+i,asc(mid$(na$,i,1))
  13. 70 next
  14. 80 sys4268:rem load picture
  15. 85 gosub460:ifd=1then80
  16. 90 print"[147]1 - [200]ires (packed)"
  17. 100 print"2 - [200]ires ([200]i-[197]ddi)"
  18. 110 print"3 - [205]ulticolor ([203]oalapainter)"
  19. 120 geta$:ifa$=""then120
  20. 130 ifa$<>"1"thengoto140
  21. 135 poke8017,1:poke4166,0:poke4105,127:poke4107,64
  22. 136 poke4121,39:goto200
  23. 140 ifa$<>"2"thengoto150
  24. 145 poke8017,0:poke4166,0:poke4105,128:poke4107,0
  25. 146 poke4121,232:goto200
  26. 150 ifa$<>"3"thengoto120
  27. 160 poke8017,3:poke4105,127:poke4107,64
  28. 170 poke4166,16:poke4121,39
  29. 200 print"[147][194]itte [196]iskette fuer [199]rafiken einlegen"
  30. 210 print"[194]uchstabe der [198]iles ?"
  31. 220 geta$:ifa$=""then220
  32. 230 f=asc(a$):iff<65orf>90then220
  33. 250 poke53280,2:s=49:gosub400
  34. 260 poke53280,6:s=50:gosub400
  35. 270 poke53280,0:s=51:gosub400
  36. 280 poke53280,7:s=52:gosub400
  37. 290 poke53265,27:poke53272,23
  38. 300 print"[147]"
  39. 310 poke53280,6:poke53281,6
  40. 320 end
  41. 400 sys4096:fori=0to15
  42. 410 reada:poke8000+i,a
  43. 420 next
  44. 430 sys4326:rem berechnung
  45. 440 poke4260,f:poke4261,s:sys4294:rem save
  46. 445 gosub460:ifd=1thengoto440
  47. 450 return
  48. 460 open1,8,15
  49. 461 input#1,q1,q$,q2,q3:close1
  50. 462 ifq1=0thend=0:return
  51. 463 poke53265,27:poke53272,23
  52. 464 poke53281,6
  53. 465 print"[147][194]itte andere [196]iskette einlegen"
  54. 466 geta$:ifa$=""then466
  55. 467 d=1:return
  56. 500 data0,0,1,0,2,0,0,0,2,3,2,0,0,0,0,0
  57. 510 data0,0,0,2,3,3,1,0,0,2,0,0,0,4,2,0
  58. 520 data1,0,0,0,0,0,0,0,0,0,0,3,4,0,0,4
  59. 530 data0,0,0,4,0,2,0,1,3,2,0,0,0,3,0,0
  60.